;; import numbers/fibonacci.scm
(define (fib-list* n m)
  (if (> n 0)
      (fib-list* (- n 1) (cons (fib n) m))
      m))
(define (fib-list n) (fib-list* n '()))

(write (fib-list 40))
(newline)
